home *** CD-ROM | disk | FTP | other *** search
- ;/*
- F_Create.rexx LIB Feelin:LIBS/Feelin/<classname>.fc version revision
- QUIT
- ________________________________________________________________________
- */
-
- #include "Private.h"
-
- struct FeelinBase *FeelinBase;
-
- ///METHODS
- F_METHOD(void,<function>);
- //+
-
- ///QUERY
- F_QUERY()
- {
- FeelinBase = Feelin;
-
- switch (Which)
- {
- case FV_Query_ClassTags:
- {
- static struct FeelinDynamicEntry Methods[] =
- {
- "<name>",0
- NULL
- };
-
- static struct FeelinDynamicEntry Attributes[] =
- {
- "<name>",0
- NULL
- };
-
- static struct FeelinMethodEntry Handlers[] =
- {
- (FMethod) <function>, "<name>", 0,
-
- NULL
- };
-
- static struct TagItem Tags[] =
- {
- FA_Class_LODSize, (ULONG) sizeof (struct LocalObjectData),
- FA_Class_Attributes, (ULONG) Attributes,
- FA_Class_Methods, (ULONG) Methods,
- FA_Class_MethodsTable, (ULONG) Handlers,
-
- TAG_DONE
- };
-
- return Tags;
- }
-
- case FV_Query_PrefsTags:
- {
- static struct FeelinMethodEntry Table[] =
- {
- (FMethod) p_<name>_New, NULL, FM_New,
- (FMethod) p_<name>_Load, "FM_PreferenceGroup_Load", 0,
- (FMethod) p_<name>_Save, "FM_PreferenceGroup_Save", 0,
-
- NULL
- };
-
- static struct TagItem Tags[] =
- {
- FA_Class_Super, (ULONG) FC_PreferenceGroup,
- FA_Class_LODSize, (ULONG) sizeof (struct p_LocalObjectData),
- FA_Class_MethodsTable, (ULONG) Table,
- };
-
- return Tags;
- }
- }
- return NULL;
- }
- //+
-